(require 'grep)

(evil-leader/set-key
  "occ" 'occur
  "gm" 'grep_my)

(defun grep_my(command-args)
  (interactive
   (progn
     (grep-compute-defaults)
     (if grep-find-command
	 (list (read-shell-command "Run find (like this): "
                                   grep-find-command 'grep-find-history))
       ;; No default was set
       (read-string
        "compile.el: No `grep-find-command' command available. Press RET.")
       (list nil))))
  (when command-args
    (let ((null-device nil))		; see grep
      (grep command-args))))


(provide 'grep_my)
(message "grep_my")


